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I* BitStringS & 16 based on Bh.String irom UOS *J 
syntype Cgronp = Intoger constants 0:3 cndsyntype; 
syntype Cond = Integer constants 0:31 endsyatype; 
syatype CtxNnm ~ Integer constants 0:7 endsyntype; 
syntype EventNom = Integer constants 0:7 endsyntype ; 
syntype InstAddr = Integer constants 0:85335 endsyntype; 
syn^e Instmctlon = BitStringlG endsyntype; 
syntype Oi&et = Integer constants -12S:127 endsyntype; 
syntype Vbase = Integer constants 0:1023 endsyntype; 

/* Exported £rom Context.ControIIer */ 
remote asleep, csw, idle Boolean nodelay ; 
remote context CtxNam nodelay ; /* nmnxng context *I 
remote events BItStringS nodelay ; I* C-gronp 01 V 
remote nets CtxNnm nodelay ; /* next context */ 
remote mask BitStringS nodelay ; /* Event Mask reg */ 

/* Exported from Data.PatIi_and_Intcrfiice_Resoarce$ */ 
remote slice Natural nodelay ; /* xnst cycles per bg slice */ 
remote ten Boolean nodelay ; /* true for execute cycles */ 



Signal 

Ack£v(CtxNam^ventNnm), 
Ackinst(£ventNnm), 
BcInst(Cond.O£&et), CIearCy(CtxNnm), 
ClearEG, CSaddr(InstAddr), 
CSdata(Instniction), CsLoad(CtxNnm), 
CsStore(CtxNam), 
Event(CtxNnm,£ventNnm)f 
ExtEvent(CtxNnni^ventNnm), EfOsc, 
HwReset. Initlnst(CtxNam), 
InitSeq(CtxNam), liOsc, 
L6adMask(BltString8), Mr, Mf; 
Qr, Qi; Reset, SetCy (CtxNnm), 
SetEG, SignalIn$t(CtxNmnJSventNnin), 
SkpInst(Cgroap3itStrlns8), Sleep, 
VecInst(Vbase), Wait* Wake ; 
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Data_Fath_and.Interface.Reso nrces 

/* ALU, condition codes, central registers, 
control registers, file registers, software 
flags, memory bns (data store) interface, 
serial & paraOel ports, timers, coprocessor 
interface, I/O bus (host) interface, etc */ 
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sigaal EadMark, ResetMark , 
signalset EndMark, £xl£vent 
Mr, ReseU ResetMark ; 

dclc# CtxNnin; 
dd e# EventNnm ; 



/* This process synchronizes events originatxsg 
outside of the DISC core to the leading edge oi 
Mr. The assertion of each external event is 
indicated by an ExtEvent signaL The parameters 
of the signal provide the target contest and event 
nnmhers. 

£xt£vent signals are saved ia the process' inpot 
qnene nn<il receipt of signal Mr from the 
CIock.Generator block. The end of the mpat 
queue is marked and all £xt£vent signals qnened 
ahead of the EndMark are copied to Event signals 
and sent to the Event.Prioritizer process, vdiere 
they are handled at the next Mr. */ 



1(1) 



202 



204 



206 



212 



214 



218 



222 



208 



/ 

210 I 



EztEvent 





EndMark 
to self 



^"^"^^^ ^ Pass.Eventsj^ 




216 



ExtEvent 
(c#,e#) 



^EndMark 



Event 
(c#, 



224 



226 



228 



230 



232 



220 234 



'Reset 




ResetMark 

t0SClf 



^^^"^ ^Httsh.Events^ 




ResetMark 



^) ^ ^ Hold.Events J ^^^^^"^ — ^ Hold.EventTj 



DIEPSTRATEN 16-2-2 



Figure_7A 



152 
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I* This process handles signals that alter event state, 
contest activation state, or execntlon state (sleep, idle). 



WhOe Ronning, events, Signal Instnictions, and loading the 
Evuit Mask are handled at once; while Ack, Init, Sleep, 
Wait, and Set/Clear FG are held on the process inpat qaene 
nntn Mr. At Mr of execute (icn=l} cycles, any qneaed 
instniction (inax=l/cyde) is processed, the context nomber, 
event flags (C-gronp 1) and event mask valnes are updated 
to reflect a possible context switdi, and the slice coont is 
decremented if the romting context is in backgronnd. At 
Qr the activity flags are opdated, then the highest priority 
active (fg) context, or cnrrent/next (bg) context is selected 
for execution at the next Mr, performing a context switch 
or going idle, starting at Mf; as appropriate* */ 
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act := OxSO, 
ctx:=7, 
fg:=axFP, 



asleep := false, 
cswr= false, 
idle := false 



events := 0x00, 
waited := 0x00, 
mask := 0x00, 



cnrBg := 0, 
sOceConnt := 
import(s]ice) 




evMask(04^, 

3,4,5,0,7) 

:=ax0O, 
evStatns(04*2, 

3,44,6,7) 

:=0x00 
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export 
asleep, csw, 
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CsLoad(7) 
via PriSeq 



del act BitStringS ; 
dclc#, cnrBg CtxNnm; 
dd e# EventNom ; 
dd evMask, evStatns 

AirayCCtxNom, BitStringS) ; 
dd fg BitStrxngS ; 
ddk,I,prev CtsiNam; 
dd sliceConnt Natural ; 
dd val BitStringS ; 
dd waited BitStrii^S; 



signal BesetMark; [ 

signalset 
Acklnst, Clearf G, 
Event, Initlnst, 
loadMask, 
Mr, Mtf Qr, Reset, 
ResetBiark, SetEG, 
Stgnallnst, Sleep, 
Wait„ Wake; 
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imported Sen Boolean; 
imported slice Natural; 



dd exported asleep, csw, idle Boolean ; 
dd escorted ctx as context CtxNum ; 
dd exported events, mask BitStringS ; 
dd exported nctx CtxNnra ; 
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csw := false,** 
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mask := 

evMask(dx) 






export 
csw, etc, 
events, mask 


./ 

^321 



318 



310 



(true) 



338 



Sleeping 




^Wake 



asleep := iaise 



cnrBg:= 
(cnrBg + 1) 
. mod 8, 



J 



sliceCoont := 
iinport(sIice) 
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c# := c# + 1 



act(c#} := 
if(evMask(c#) 
and 




evStatas(c#)) =0 
then aci(c#) 
else 1 fi 
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